home *** CD-ROM | disk | FTP | other *** search
- object PreviewForm: TPreviewForm
- Left = 158
- Top = 99
- Width = 629
- Height = 445
- Caption = 'Print Preview'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- PixelsPerInch = 96
- WindowState = wsMaximized
- OnClose = FormClose
- OnCreate = FormCreate
- OnResize = FormResize
- OnShow = FormShow
- TextHeight = 16
- object ToolBarPanel: TPanel
- Left = 0
- Top = 0
- Width = 621
- Height = 31
- Align = alTop
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object GridBut: TSpeedButton
- Left = 424
- Top = 4
- Width = 33
- Height = 24
- Hint = 'Turns Grid On/Off'
- AllowAllUp = True
- GroupIndex = 1
- Caption = 'Grid'
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = GridButClick
- end
- object ZoomCursorBut: TSpeedButton
- Left = 472
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Selects the Zoom Tool to zoom in or out'
- GroupIndex = 2
- Down = True
- Glyph.Data = {
- 90010000424D9001000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33033333333333333F8F3333333333333000333333333333F888333333333333
- 000333333333333F888333333333333000333333333333F88833333333333300
- 033333333FFF3F888333333800083B803333333F8883F88833333308888800B3
- 33333388333888833333308F7F7F8033333338F333F338F3333388F7F9F7F883
- 3333383338F3383F3333087F797F780333338F33F8FFF38F333308F99999F803
- 33338F388888338F3333087F797F7803333383F338F33383333388F7F9F7F883
- 333338F3383338F33333308F7F7F80333333383FF333F8333333330888880333
- 333333883FF88333333333380008333333333333888333333333000000000000
- 0000000000000000000000000000000000000000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = ZoomCursorButClick
- end
- object HandCursorBut: TSpeedButton
- Left = 496
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Selects the Hand Tool to pan across the Page'
- GroupIndex = 2
- Glyph.Data = {
- 10010000424D1001000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000003
- 33333330FFFFFFF03333330FFFFFFFFF0333330FFFFFFF0FF033330FFFFFFF00
- FF03330FFFFFFF030F03330F0F0F0F033003330F0F0F0F033333330F0F0F0F03
- 3333330F0F0F0F033333330F0F0F0F03333333300F0F0F03333333330F0F0F03
- 33333333000F0F0333333333330F003333333333330003333333000000000000
- 0000000000000000000000000000000000000000}
- ParentShowHint = False
- ShowHint = True
- OnClick = HandCursorButClick
- end
- object OnePageBut: TSpeedButton
- Left = 536
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Display One page at a time'
- GroupIndex = 3
- Down = True
- Caption = '&1'
- ParentShowHint = False
- ShowHint = True
- OnClick = OnePageButClick
- end
- object TwoPageBut: TSpeedButton
- Left = 560
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Display Two pages side by side'
- GroupIndex = 3
- Caption = '&2'
- ParentShowHint = False
- ShowHint = True
- OnClick = TwoPageButClick
- end
- object PrintBut: TButton
- Left = 5
- Top = 4
- Width = 50
- Height = 24
- Hint = 'Print the Current Document'
- Caption = '&Print'
- TabOrder = 0
- OnClick = PrintButClick
- end
- object NextPageBut: TButton
- Left = 60
- Top = 4
- Width = 50
- Height = 24
- Hint = 'Advance to Next Page in Document'
- Caption = '&Next'
- TabOrder = 1
- OnClick = NextPageButClick
- end
- object PrevPageBut: TButton
- Left = 115
- Top = 4
- Width = 50
- Height = 24
- Hint = 'Move to Previous Page in Document'
- Caption = 'Pre&v'
- Enabled = False
- TabOrder = 2
- OnClick = PrevPageButClick
- end
- object ZoomInBut: TButton
- Left = 170
- Top = 4
- Width = 60
- Height = 24
- Hint = 'Zoom In on the page'
- Caption = 'Zoom &In'
- TabOrder = 3
- OnClick = ZoomInButClick
- end
- object ZoomOutBut: TButton
- Left = 235
- Top = 4
- Width = 65
- Height = 24
- Hint = 'Zoom Out of the page'
- Caption = 'Zoom &Out'
- TabOrder = 4
- OnClick = ZoomOutButClick
- end
- object CloseBut: TButton
- Left = 360
- Top = 4
- Width = 50
- Height = 24
- Hint = 'Close the Print Preview window'
- Cancel = True
- Caption = '&Close'
- TabOrder = 5
- OnClick = CloseButClick
- end
- object AboutBut: TButton
- Left = 305
- Top = 4
- Width = 50
- Height = 24
- Hint = 'Displays information on the Print Preview Component'
- Caption = '&About'
- TabOrder = 6
- OnClick = AboutButClick
- Visible = False
- end
- end
- object StatBarPanel: TPanel
- Left = 0
- Top = 394
- Width = 621
- Height = 24
- Align = alBottom
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object CurPageLabel: TPanel
- Left = 1
- Top = 1
- Width = 88
- Height = 22
- Hint = 'Displays the Current Page of the Document'
- Align = alLeft
- BevelOuter = bvLowered
- Caption = 'CurPageLabel'
- TabOrder = 0
- end
- object ZoomLabel: TPanel
- Left = 89
- Top = 1
- Width = 88
- Height = 22
- Hint = 'Displays the Current Zoom Level (100% = normal)'
- Align = alLeft
- BevelOuter = bvLowered
- Caption = 'ZoomLabel'
- TabOrder = 1
- end
- object Panel1: TPanel
- Left = 177
- Top = 1
- Width = 443
- Height = 22
- Hint = 'Displays Help for the object beneath the mouse'
- Align = alClient
- BevelOuter = bvLowered
- TabOrder = 2
- object HintLabel: TLabel
- Left = 8
- Top = 4
- Width = 53
- Height = 15
- Hint = 'Displays Help for the object beneath the mouse'
- Caption = 'HintLabel'
- end
- end
- end
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 31
- Width = 621
- Height = 363
- Align = alClient
- Color = clBtnFace
- ParentColor = False
- TabOrder = 2
- object ContainPanel: TPanel
- Left = 0
- Top = 0
- Width = 489
- Height = 329
- BevelOuter = bvNone
- Color = clBtnShadow
- TabOrder = 0
- object PagePanel: TPanel
- Left = 44
- Top = 32
- Width = 209
- Height = 265
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWindow
- TabOrder = 0
- object PB1: TPaintBox
- Left = 0
- Top = 0
- Width = 207
- Height = 263
- Hint =
- 'Page View. With Zoom Tool, left or right click to zoom in/out. ' +
- ' Click && drag with Hand Tool to pan.'
- Align = alClient
- OnMouseDown = PB1MouseDown
- OnMouseMove = PB1MouseMove
- OnMouseUp = PB1MouseUp
- OnPaint = PB1Paint
- end
- end
- object PagePanel2: TPanel
- Left = 260
- Top = 32
- Width = 209
- Height = 265
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWindow
- TabOrder = 1
- Visible = False
- object PB2: TPaintBox
- Left = 0
- Top = 0
- Width = 207
- Height = 263
- Hint =
- 'Page View. With Zoom Tool, left or right click to zoom in/out. ' +
- ' Click && drag with Hand Tool to pan.'
- Align = alClient
- OnPaint = PB2Paint
- end
- end
- end
- end
- end
-